home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
MF-Pascal_0.2
/
test1.p
< prev
next >
Wrap
Text File
|
1990-02-23
|
606b
|
37 lines
program main(input,output);
var
i: integer;
procedure otto(i1,{var} i2: integer; tx1: boolean; st: string);
{ const
pie = 3.1415;
} var
j,k: integer;
i: boolean;
r: real;
f: boolean;
str: String;
procedure emil(i1,i2: integer; f1,f2,f3: boolean);
var
i,j,k: char;
function udo(a,b,c: real): boolean;
var i,j,k: integer;
begin
i:= j+k;
udo := false;
end;
begin
j := k;
end;
begin
{ r := pie;
} end;
procedure hugo;
var
a,b: integer;
Begin
a := b;
end;
Begin
i := 3 mod 2;
end.